home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / b / bestba.zip / {.FR < prev    next >
Text File  |  1993-03-18  |  2KB  |  89 lines
  1. @echo off
  2. Rem (C) Daniel MONTARON 1989,90,92,93.
  3. Rem MS DOS, DR DOS 3.3 +.Available release for DOS 2.x. Also available in french
  4. Rem Version pour DOS 2.x disponible.
  5. for %%x in (ERRORL,errorl,WHATKEY,whatkey,UNADDPATH,unaddpath) do if %1'==%%x' goto %1
  6. if %2'==' goto ?
  7. for %%x in (ADD,add,ADDPATH,addpath,DELS,dels,?,LISTE,liste,},Z,z) do if %1'==%%x' goto %1
  8. if exist key.com goto s
  9. echo ┤═!└u═!┤L═! >key.com
  10. :s
  11. if %2'==?' for %%x in (%3 %4 %5 %6 %7 %8 %9) do call %0 } %1 %%x
  12. if %3'==}' for %%x in (%4 %5 %6 %7 %8 %9) do call %0 z %%x %1 %2
  13. if %4'==}' for %%x in (%5 %6 %7 %8 %9) do call %0 z %%x %1 %2 %3
  14. if %5'==}' for %%x in (%6 %7 %8 %9) do call %0 z %%x %1 %2 %3 %4
  15. if %6'==}' for %%x in (%7 %8 %9) do call %0 z %%x %1 %2 %3 %4 %5
  16. set $1=%2
  17. set $=%1
  18. if %2'=={' set $1=
  19. if %2'=={' goto £
  20. if not %3'=={' goto w
  21. shift
  22. :£
  23. shift
  24. if %2'==' goto w
  25. %$% %2 %$1%
  26. goto £
  27. :ADD
  28. echo set %2=%%%2%%;%3>$.bat
  29. call $
  30. del $.bat
  31. goto w
  32. :ADDPATH
  33. set path0 = %PATH%
  34. @echo on
  35. PATH %PATH%;%2
  36. @echo off
  37. goto w
  38. :DELS
  39. %0 del ? %2 %3 %4 %5 %6 %7 %8 %9
  40. :$
  41. echo Confirme %2 %3 (o/N) ?
  42. key
  43. if errorlevel=79 if not errorlevel=80 %2 %3
  44. if errorlevel=111 if not errorlevel=112 %2 %3
  45. if %2'==del' if exist %3 echo %3 non effacé.
  46. if %2'==del' if not exist %3 echo %3 effacé.
  47. goto w
  48. :ERRORL
  49. set $$=Error Level 
  50. :EL
  51. for %%x in (0 1 2) do if errorlevel=%%x00 set $1=%%x
  52. for %%x in (0 1 2 3 4 5 6 7 8 9) do if errorlevel=%$1%%%x0 set $=%$1%%%x
  53. for %%x in (0 1 2 3 4 5 6 7 8 9) do if errorlevel=%$%%%x set $1=%$%%%x
  54. echo %$$% = %$1%
  55. goto w
  56. :LISTE
  57. for %%x in ( %2 %3 %4 %5 %6 %7 %8 %9) do echo %%x 
  58. goto w
  59. :Z
  60. for %%x in (%3 %4 %5 %6 %7 %8 %9) do %%x %2
  61. goto w
  62. :WHATKEY
  63. Echo Taper une touche
  64. key
  65. set $$=Key
  66. goto EL
  67. :UNADDPATH
  68. @echo on
  69. path %PATH0%
  70. @echo off
  71. goto w
  72. :?
  73. set $=fic? fic*... 
  74. echo (c) Daniel Montaron 1989,90,92,93. -Usage:
  75. echo %0 ADD env path      env = PATH, LIB, APPEND, INCLUDE....
  76. echo %0 ADDPATH path
  77. echo %0 DELS %$%
  78. echo %0 ERRORL
  79. echo %0 LISTE %$%
  80. echo %0 UNADDPATH
  81. echo %0 WHATKEY
  82. echo %0 commande parametres { %$%
  83. echo %0 command ? %$%
  84. echo %0 command command2 ... } %$%  command= COPY, DEL, DIR, REN...  
  85. :w
  86. set $=
  87. set $1=
  88. set $$=
  89.